home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / anim / anim4.dem < prev    next >
Text File  |  1999-09-16  |  392b  |  20 lines
  1. kp=xget("pixmap");
  2. if kp=0, xset("pixmap",1);end;
  3. xset("wwpc");
  4. t=-%pi:0.3:%pi;
  5. contour(t,t,sin(t)'*cos(t),10,35,45,"X@Y@Z",[0,2,4])
  6. xset("wshow");
  7. sp=1;
  8. for i=35:sp:80,xset("wwpc");
  9.     contour(t,t,sin(t)'*cos(t),10,i,45,"X@Y@Z",[0,0,4])
  10.     xset("wshow");
  11. end
  12. for i=45:sp:80,xset("wwpc");
  13.     contour(t,t,sin(t)'*cos(t),10,80,i,"X@Y@Z",[0,0,4])
  14.     xset("wshow");
  15. end
  16.  
  17. if kp=0, xset("pixmap",0);end;
  18.  
  19.  
  20.